/* GUI CONVERTED from porcdef.i (converter v1.75) Sun Aug 13 13:41:41 2000 */
/* porcdef.i - DECLARATIONS FOR PO RECEIPTS & RETURNS                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/*V8:WebEnabled=No*/
/* REVISION: 7.3     LAST MODIFIED: 11/08/94    BY: bcm *GO37*          */
/* REVISION: 8.5     LAST MODIFIED: 05/05/95    BY: pma *J040*          */
/* REVISION: 7.3     LAST MODIFIED: 08/07/95    BY: jym *G0TP*          */
/* REVISION: 8.6E    LAST MODIFIED: 02/23/98    BY: *L007* A. Rahane */
/* REVISION: 8.6E    LAST MODIFIED: 05/09/98    BY: *L00Y* Jeff Wootton */
/* REVISION: 8.6E    LAST MODIFIED: 06/11/98    BY: *L020* Charles Yen  */
/* REVISION: 9.1     LAST MODIFIED: 08/13/00    BY: *N0KQ* myb          */

/*!
    porcdef.i - DECLARATIONS FOR COMMON DATA-TYPES IN PO RECEIPTS & RETURNS
*/

/*
    {1} = "new" for parent program
    {2} = "new" for programs accessing sub-programs directly
*/

     /* NEW SHARED VARIABLES, BUFFERS AND FRAMES */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE porcdef_i_1 "Pack Slip"
/* MaxLen: Comment: */

&SCOPED-DEFINE porcdef_i_2 "ID"
/* MaxLen: Comment: */

&SCOPED-DEFINE porcdef_i_3 "Move to Next Operation"
/* MaxLen: Comment: */

&SCOPED-DEFINE porcdef_i_4 "Return to Replace"
/* MaxLen: Comment: */

&SCOPED-DEFINE porcdef_i_5 "WO Op"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

     define {1} shared variable base_amt    like pod_pur_cost.
     define {1} shared variable cmmt-prefix as character.
     define {1} shared variable cmtindx     like cmt_indx.
     define /*@@@@@@@ {1}*/ shared variable eff_date    like glt_effdate.
/*L020* define {1} shared variable exch_rate   like exd_rate. */
/*L020*/ define {1} shared variable exch_rate   like exr_rate.
/*L020* /*L00Y*/ define {1} shared variable exch_rate2 like exd_rate. */
/*L020*/ define {1} shared variable exch_rate2 like exr_rate.
/*L00Y*/ define {1} shared variable exch_ratetype like exr_ratetype.
/*L00Y*/ define {1} shared variable exch_exru_seq like exru_seq.
     define {1} shared variable location    like sr_loc no-undo.
     define {1} shared variable lotref      like sr_ref no-undo.
     define {1} shared variable lotserial   like sr_lotser no-undo.
     define {1} shared variable move        like mfc_logical initial yes
                        label {&porcdef_i_3}.
     define {1} shared variable replace     like mfc_logical initial yes
                        label {&porcdef_i_4}.
     define {1} shared variable msgref      as character format "x(20)".
     define {1} shared variable po_recno    as recid.
     define {1} shared variable pod_recno   as recid.
     define {1} shared variable proceed     like mfc_logical initial yes.
     define {1} shared variable ps_nbr      like prh_ps_nbr
                        label {&porcdef_i_1}.
     define {1} shared variable ref         like glt_ref.
     define {1} shared variable shipper_rec as logical init false.
     define {1} shared variable site        like sr_site no-undo.
     define {1} shared variable stat_recno  as recid.
     define {1} shared variable trlot       like tr_lot.
     define {1} shared variable transtype   as character.
     define {1} shared variable updt_blnkt  like mfc_logical.
         define {1} shared variable updt_blnkt_list as character no-undo.
     define {1} shared variable wolot       like pod_wo_lot no-undo
                        label {&porcdef_i_2}.
     define {1} shared variable woop        like pod_op no-undo
                        label {&porcdef_i_5}.

     /* FOR PROGRAMS ACCESSING POPORC* SUB-PROGRAMS DIRECTLY */
     define {2} shared variable is-return   like mfc_logical
                        no-undo.
     define {2} shared variable porec       like mfc_logical no-undo.
     define {2} shared variable ports       as character no-undo.
     define {2} shared variable tax_tr_type like tx2_tax_type no-undo.
